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~ 1/0 PERFORMANCE DATA COLLECTION 
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IOPERFORM - 1/0 PERFORMANCE DATA COLLECTION 16-SEP-1984 00:20: AX/VM 4- 
v04-000 ~3Ep=19 4 §3:29:38 Lee aC TTOPERFORM MAR; 1 Atos 


v03-004 SSA00008 Stan Amway 10-Feb-1984 
; Changed time stamp to quadword. 
; v03-003 SSA00002 Stan hawer go-seg~t96> 
: Added routine PMSSABORT_RQ to be called by FDI routines 
5 (usually BACKOUT_Q10 in SYSQIOFDT) that have aborted or 


restarted an 1/0 request AND the IRP will not be posted 
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Changed IPL 15 references to IPL$_PERFMON, a new symbol. 


; V03-002 $$A00001 Stan Amway 13-Sep-1983 
: Emenges PERSSTERS Em to capture longword transfer 
e 7 o 


vO5-001 LJK47917 Lawrence J. Kenah 10-Aug-1982 
Insure that stack looks the same at all entry points so that 
common exit code can be used. 


1 -TITLE JOPERFORM = 1/0 PERFORMANCE DATA COLLECTION 
§ IDENT TOE 000" 
0 : | adhaneetieebandanbanetbeenenhenennnernenenccnnensnneaennsenenahaneanenenenes 
3* 
8 § 5 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 6 
§ :* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUs; .TS. ‘ 
82 10 ‘* ALL RIGHTS RESERVED. * 
° ® 
$60 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
44 \¢ 3* ONLY IN ACCORDANCE WITH TH ERMS OF SUCH LICENSE AND WITH THE * 
0 15 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ® 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
44 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
44 18 7” TRANSFERRED. . 
° a 
8000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
444 y ‘* CORPORATION. i 
4 ® 
0000 § 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
4 Z :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
3 * 
0000 i s penenedamenennennacniedbanebenennbnbonenbhedaniaubebanannsenabbontneaenntid 
9000 8 : D. N. CUTLER *8-NOV-77 
38 : ; 1/0 PERFORMANCE MEASUREMENT DATA COLLECTION ROUTINES 
000 ; MODIFIED BY: 
0000 § : 
448 4 v03-005 SSA00024 Stan Amway 99-Apr-1984 
$s If available, store file access information from WCB 
6 (SRQ transaction). When monitoring disks, this will allow 
0 q3 trace-driven reduction & simulation programs (e.g., disk 
3 cache anelysis) to make use of the information. 
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sa -SBTTL ABORTED 1/0 REQUEST 
; PMSSABORT_RQ = ABORTED 1/0 REQUEST 


; THIS ROUTINE IS CALLED WHEN AN I/0 REQUEST HAS BEEN ABORTED 
TO ENTER A MESSAGE IN THE 1/0 PERFORMANCE DATA COLLECTION BUFFE/. 


: INPUTS: 
R3 = ADDRESS OF 1/0 REQUEST PACKET. 

; IPL CAN BE ANY SOFTWARE IPL >= IPL$_ASTDEL 

OUTPUTS: 

IF 1/0 PERFORMANCE DATA COLLECTION I$ ENABLED AND THE CURRENT I/O PACKET 
; CONFORMS TO THE SELECTION CRITERIA, THEN AN ABORTED I/O REQUEST IS 

: PLACED IN THE CURRENT AATA BUFFER. 


ALL REGISTERS ARE PRESERVED ACROSS CALL. 


IF DF CAS_MEASURE_IOT 
.PSECT SAEXENONPAGED 

PMSSABORT_RQ:: SABORTED I/ 
TSTL ysPMSSGL_IOPFHPDB :DATA COLLE 
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0000' CF 
01 


RSB SE 

5$: DSBINT #IPL$_PERFMON DISABLE SOFTWARE INTERRUPTS 
PUSHR #*M<RO,R1,R2,R3> :SAVE REGISTERS 
MOVZBL #P1BSK ARG_SIZE,R1 SET SIZE OF MESSAGE | BUFFER 
BSBW LLOCAT LLOCA TE MESSAGE BUFFER 
MOVE atte ARQ,PIBSB_ TYPE (ROS SERT MESSAGE TYPE 
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Xa .SBTTL END OF 1/0 TRANSACTION 
: PMSSEND_IO = END OF 1/0 TRANSACTION 


; THIS ROUTINE IS CALLED AT THE END OF AN 1/0 TRANSACTION TO ENTER A MESSAGE 
; IN THE 1/0 PERFORMANCE DATA COLLECTION BUFFER. 


j 
| 
| 
} 

: INPUTS: | 
R3 = ADDRESS OF 1/0 REQUEST PACKET. 

OUTPUTS: | 
IF 1/0 PERFORMANCE DATA COLLECTION IS ENABLED AND THE CURRENT I/O PACKET 
CONFORMS TO THE SELECTION CRITERIA, THEN AN END OF 1/0 TRANSACTION IS 
PLACED IN THE CURRENT DATA BUFFER. 


ALL REGISTERS ARE PRESERVED ACROSS CALL. 
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MSSEND_I0:: END OF 1/0 TRANSACTION 
OOOO'CF 05 TSTL W*PMSSGL_IOPFMPDB DATA COLLECTION ENABLED? 
01 12 BNEQ 5$ BR IF YES 
05 RSB ELSE RETURN 
5$ SAVIPL STORE OLD IPL ON STACK 
OF BB PUSHR #*M<RO,R1,R2,R3> SAVE REGISTERS 
51 18 QA MOVZBL #PIB$K E10 SIZE,R1 SET SIZE OF MESSAGE BUFFER 
0 SETIPL #IPL$_PERFRON DISABLE SOFTWARE INTERRUPTS 
00B8 30 O W ALLOCATE 
0 90 0 MOVB #PIBSK_EI0,PIB$B_TYPE(ROS ; INSERT MESSAGE TYPE 
10 AO Os 338 a gp 8 mova IRPSL AEDIACRS) .P18$0_£10_{0SB(RO) INSERT FINAL 1/0 STATUS 


sALLOCATE MESSAGE BUFFER 
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SEP=1984 
-SBTTL END OF 1/0 REQUEST 


SYS.SRCJIOPERFORM.MAR; 1 


+ 
PMSSEND_RQ = END OF 1/0 REQUEST 


THIS ROUTINE IS CALLED AT THE END OF AN I/O REQUEST TO ENTER A MESSAGE IN THE 
1/0 PERFORMANCE DATA COLLECTION BUFFER. 


; INPUTS: 


——— Se. 


RS = ADDRESS OF 1/0 REQUEST PACKET. 
are IS ASSUMED TO HAVE BEEN CALLED FROM I/0 POST AT I/O POST 


OUTPUTS: 


O PERFORMANCE DATA COLLECTION IS ENABLED AND THE CURRENT I/O PACKET 


/ 
ORMS TO THE SELECTION CRITERIA, THEN AN END OF I/O REQUEST TRANSACTION 
LACED IN THE CURRENT DATA BUFFER. 


NY BUFFERS ARE READY TO PROCESS, THEN THE 1/0 PERFORMANCE DATA 
COLLECTION PROCESS IS AWAKENED. 


ALL REGISTERS ARE PRESERVED ACROSS CALL. 


If | 
CONF 
IS P 
IF A 


PMSSEND_RQ: : sEND OF I/0 REQUEST 
TSTL | W*PMSSGL_IOPFMPDB [DATA COLLECTION ENABLED? 
BNEQ 5$ 3BR Y 
RSB SELSE RETURN 

5$: SAVIPL :STORE OLD IPL ON STACK 
PUSHR #*M<RO,R1,R2,R3> :SAVE REGISTERS 
MOVL R [COPY ADDRESS OF 1/0 PACKET 
MOVZBL #PIB$K_ERQ SIZE,R1 [SET SIZE OF MESSAGE BUFFER 
SETIPL #IPL$_PERFAON “DISABLE SOFTWARE INTERRUPTS 

A E MESSAGE BUFFER 


BSBwW LLOCATE ALLOCAT 
MOVB #PIBSK_ERQ,PIBSB_TYPE(ROS ; INSERT MESSAGE TYPE 
TSTW mpesu_BUF CNT Re) ZANY FULL BUFFERS? 


BEQL 3 L_NO 
MOVQ R4,-(SP) SAVE REGISTERS 
MOVL PDBSL_PID(R2) ,R1 :GET DATA COLLECTION PROCESS INDENTIFICATION 
BSBW SCHSWAKE WAKE PROCESS 
MOVQ (SP)+,R4 sRESTORE REGISTERS 
10$ BRB COMMON : 
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LOPERFORM - 1/0 PERFORMANCE DATA COLLECTION 16-SEP-1984 00:20: AX/VMS Macro V04-00 Pa 
nite START OF 1/0 TRANSACTION ets 1 80:29:38 LEYS SRCIIOPERTORM-MAR: 1 - dy 
A 5 : .SBTTL START OF 1/0 TRANSACTION | 
A ; PMS$START_IO ~ START OF 1/0 TRANSACTION 
06A 189 : THIS ROUTINE IS CALLED AT THE START OF AN I/O TRANSACTION TO ENTER A MESSAGE | 
O6A 130 ; IN THE CURRENT 1/0 PERFORMANCE DATA COLLECTION BUFFER. | 
O6A 19¢ > INPUTS: 
ash 194 ; R3 = ADDRESS OF 1/0 REQUEST PACKET. 
O6A 196 ; OUTPUTS: 
06A 198: IF 1/0 PERFORMANCE DATA COLLECTION IS ENABLED AND THE CURRENT I/O PACKET 
006A 199 : CONFORMS TO THE SELECTION CRITERIA, THEN AN START OF I/0 TRANSACTION IS 
Been BY 3 PLACED IN THE CURRENT DATA BUFFER. 
O6A 08 ; ALL REGISTERS ARE PRESERVED ACROSS CALL. 
006A 204° 
006A 205 PMSSSTART_I0:: :START OF 1/0 TRANSACTION 
0000'CF D5 006A 06 TSTL  W°PMS$GL_IOPFMPDB ‘DATA COLLECTION ENABLED? 
01 12 O06E 20 BNEQ 5$ :BR IF YES 
05 0070 208 RSB TELSE RETURN 
0071 209 5$ SAVIPL [STORE OLD IPL ON STACK 
OF BB 0074 210 PUSHR #*M<RO,R1,R2,R3> [SAVE REGISTER 
51 18 9A 0076 211 MOVZBL #PIB$K.SIO SIZE,R1 [SET SIZE OF MESSAGE BUFFER 
0079 gi¢ SETIPL #IPL$_PERFAON ‘DISABLE SOFTWARE INTERRUPTS 
6A 10 OO7C 21 BSBB = ALLOCATE “ALLOCATE MESSAGE BUFFER 
60 01 90 O07E 314 MOVE #PIBS$K_SIO,PIB$B_TYPE(ROS ; INSERT MESSAGE TYPE 
14 A0 32 A3 DO 0081 15 MOVL §IRP$L_BCNT(R3) ,PIBSL_SIO_BCNT(RO) ; INSERT TRANSFER BYTE COUNT 
10 AO 38 a3 0 pee is ROVE [RPSL MEDIACRSS ,PIBSC_S1O_MEDIA(RO) zs INSERT MEDIA ADDRESS 


7 
F 2 | 
LOPERF ORM - 1/0 PERFORMANCE DATA COLLECTION 1 ~SEP-1984 00:20:36 AX/VMS Macro V04-00 Page 7 | 
v04=000 START OF 1/0 REQUEST =SEP-1984 03:43: SYS. SRCJIOPERFORM.MAR; 1 a 
0 p 19 Si .SBTTL START OF I/0 REQUEST 
0 p 1 PMSSSTART_RQ = START OF 1/0 REQUEST | 
08D : ; THIS ROUTINE IS CALLED AT THE START OF AN I/O REQUEST TO ENTER A MESSAGE IN THE 
0 p ¢ : 1/0 PERFORMANCE DATA COLLECTION BUFFER. | 
6 p g; : INPUTS: 
8 4 gi R3 = ADDRESS OF 1/0 REQUEST PACKET. | 
9080 0; : OUTPUTS: 
9080 gi ; IF 1/0 PERFORMANCE DATA COLLECTION IS ENABLED AND THE CURRENT I/O PACKET 
08D ; CONFORMS TO THE SELECTION CRITERIA, THEN AN START OF I/O REQUEST TRANSACTION 
2080 4 ; IS PLACED IN THE CURRENT DATA BUFFER, 
08D $ : ALL REGISTERS ARE PRESERVED ACROSS CALL. 
O08 538 
008D 9 PMSSSTART_RQ:: :START OF 1/0 REQUEST 
0080 40 DSBINT #IPL$_PERFMON DISABLE SOF TWARE INTERRUPTS 
50 AS. OO00'cF 009 41 MOVL WAPMSSGL_ LOPEMSEQ, IRPSL_SEQNUM(R3) ; INSERT PACKET SEQUENCE NUMBER 
0000'CF D6 0099 4g INCL WAPMSScL~ 1OPFMSEQ : INCREMENT 1/0 TRANSACTION SEQUENCE NUMBER 
0000" CF D3 09D 43 Ist yePMSSGL - 1OPFMPDB DATA COLLECTION ENABLED? 
ts SOAS 45 ENBINT AND RETR INTERRUPTS 
OF BB OOA 47 5$ PUSHR #*M<RO,R1,R2,R3> SAVE R Eel STER S 
51 0 9A O0A9 248 MOVZBL #PIBS$K.SRQ_SIZE,R1 size OF MESSAGE BUFFER 
A 10 OOAC 249 BSBB —« ALLOCA LOCATE MESSAGE BUFFER 
60 00 90 OAE 30 MOVE PP IBSK. SR P1IBSB_ hoconk" LINSERT MESSAGE PYPE 
52 18 a3 9 0B1 3g MOVL JRPSL_ WIND(R3),R2 ; R2 <= WCB address 
1 0B5 25 BGEQ 0$ BR if not 
BO 0087 54 MOV WCBSW_ACON(R2) $50 SRQ’ AC CONCRO) ent file access 
90 O0BC 55 MOVB WCBS$B_ACCES (R2) ,PIBSB_SRQ_ACCESS(RO) ; information from WCB 
0c1 36 10$:  MOVB  IRPSB~PRI(R watts RO_PRI(RO) ; INSERT REQUEST PRIORITY 
0C6 25 MOVL  IRPSL-PID(R3).PIBSL-SRQ-PID(RO) : INSERT REQUESTE 
OCB 4258 MOVL  IRPS$L-UCB(R3) ,PIBSL~SRQ-UCB(RO) :INSERT DEVICE UCB ADDRESS 
9D0 59 MOVW  IRPSWTFUNC(R35,PIBSQ_SRO_FUNC(ROS ; INSERT 1/0 FUNCTION CODE 
OD 60 MOVW IRPSW~STS(R3) ,PIBSW_SRQ_ STS(RO) INSERT PACKET STATUS WORD 
ODA 261 COMMON: POPR  #*M<RO,R1,R2,R3> RESTORE REGISTERS 
oc 6¢ ENBINT ‘ENABLE. INTERRUPTS 
DF 63 RSB : | 
oe 65 208: CLRW PIBSW_SRQ_ACON(RO) : Zero ACON and ACCESS fields | 
OE 66 R fil SRQ-ACCESS(RO) : to indicate no WCB available | 
BES 67 BRB 3; Rejoin mainline code 
OE 68 .DISABLE LSB | 


‘ 
G 2 
LOPERFORM = 1/0 PERFORMANCE DATA COLLECTION 16-SEP-1984 00:20: AX/VMS Macro v04-00 Page 19 
mire ALLOCATE MESSAGE BUFFER = oe = 1382 99:29:38 LOYS SRCJTOPERFORM MAR; 1 . a vO 
E 79 .SBTTL ALLOCATE MESSAGE BUFFER | 
; oe 3 ALLOCATE = ALLOCATE MESSAGE BUFFER | 
; fe 3 THIS ROUTINE IS CALLED TO: 
E A: : 1. TEST IF 1/0 PERFORMANCE MEASUREMENT IS ENABLED, | 
OE 77; ; TEST IF THE DEVICE CLASS MATCHES, 
4: 78 ; . TEST IF THE DEVICE TYPE MATCHES, 
E 79 ; 4. TEST IF THE FUNCTION CODE IS TO BE RECORDED, AND 
OF 9 : 5. TEST IF THE STATUS FIELD MATCHES. 
OE é > IF ALL OF THESE TESTS ARE SUCCESSFUL, THEN AN ATTEMPT IS MADE TO ALLOCATE 
O0e 2: AN 1/0 PERFORMANCE MEASUREMENT MESSAGE BUFFER. 
OE 5 : INPUTS: 
SOF 5 3 R1 = SIZE OF MESSAGE TO ALLOCATE. 
O0E 38 ; R3 = ADDRESS OF 1/0 REQUEST PACKET. 
boE8 90 ; REGISTERS RO, R1, R2, AND R3 ARE ASSUMED TO HAVE BEEN SAVED AND ALL 
OOEs 31 ; SOFTWARE INTERRUPTS ARE DISABLED. 
Boe $8 3 OUTPUTS: 
OOE 95 ; IF 1/0 PERFORMANCE MEASUREMENT IS NOT ENABLED OR ANY OF THE SELECTION 
O0E 96 ; CRITERIA FAILS, THEN THE RETURN ADDRESS IS REMOVED FROM THE STACK, THE 
O0E8 297: INTERRUPT LEVEL AND REGISTERS ARE RESTORED, AND A RETURN TO THE ORIGINAL 
OOE8 298: CALLER IS EXECUTED. ELSE AN ATTEMPT 1S MADE TO ALLOCATE AN I/O PERFORM- 
a0¢6 44 : ANCE MEASUREMENT MESSAGE BUFFER. 
OOE 01: IF THE ALLOCATION ATTEMPT FAILS, THEN THE RETURN ADDRESS IS REMOVED FROM 
O0E8 0¢ ; THE STACK, THE INTERRUPT LEVEL AND REGISTERS ARE RESTORED, AND A RETURN 
OOE 03 ; TO THE ORIGINAL CALLER IS EXECUTED. ELSE THE MESSAGE BUFFER IS ALLOCATED, 
OOE 04: THE TIME AND SEQUENCE NUMBER ARE FILLED IN, AND A RETURN TO THE CALLER 
OOE 05; IS EXECUTED. 
OE 06 ; 
OF 0 
OE 08 ALLOCATE: ZALLOCATE MESSAGE BUFFER 
52 0000'CF 9 OE 09 MOVL W*PMSSGL_IOPFMPDB,R2 [GET ADDRESS OF I/O PERFORMANCE DATA BLOCK 
6¢ 1 ED 310 BEQL SIF EQL 1/0 PERFORMANCE MEASUREMENT DISABLED 
50 ICA po OOEF 11 MOVL §IRPS$L_UCB(R3),RO :GET ADDRESS OF DEVICE UCB 
24 Ae 95 O0F3 1 TSTB PDBSB-DEVCLASS(R2) sALL CLASSES MATCH? 
0? 19 Orb 1 BLSS :IF LSS YES 
24 a2 40A0 91 F 14 CMPB UCBSB_DEVCLASS(RO) .PDBSB_DEVCLASS(R2) ;DEVICE CLASS MATCH? 
5¢ fs OFD 15 BNEQ TIF NEQ NO 
25 a2 9 FF 16 10S: TSIB.) oP. B$B_DEVTYPE(R2) SALL TYPES MATCH? 
0? «#19 «+0102 «31 BLSS IF LSS ves 
25 a2. 41 Ag 91 0104 18 CMPB UCBSB_DEVTYPE (RO) ,PDBSB_DEVTYPE (R ) ;DEVICE TYPE MATCH? 
3 12 0109 31 BNEQ $ > IF NEQ NO 
06 : EF 01 0 208: EXTZV #IRPSV_FCODE ,#IRPSS_FCODE,- ;GET 1/0 FUNCTION CODE 
50 20A 1 F 1 IRP$W_FUNC(RS) ; 
45 2C a2. 50 «£1 «01 : BBC RO,PDB$Q FUNC(R2),60$ :IF CLR, FUNCTION NOT ENABLED 
50 2A As 36 A2 AB 0116 BICW3 PDBSW_ANDM(RO), IRP$W_STS(R3), RO ;CLEAR MISCELLANEOUS BITS 
5 A2 ac 011 4 XORW § PDBSWXORM(R2) RO sTESf FOR EQUALITY 
39 («1 12 5 BNEQ SIF NEQ NO MATCH 
14 A2 D5 01 6 308: TSTL § PDBSL_CURBUF (R2) TANY BUFFER CURRENTLY AVAILABLE? 


H 2 | 
LOPERF ORM - 1/0 PERFORMANCE DATA COLLECTION 16-SEP-1984 AX/VMS Macro V04-00 Page 9 10! 
v04-000 ALLOCATE MESSAGE BUFFER moet 7 88: 29: 3§ SYS.SRCJIOPERFORM.MAR; 1 - och v0. 
16 13 1 5 7 BEQL 408 s1F EQL 
50 18 ag 1 ci 61 é ADDL3 = R1, PDBSL -NXTBUF (RQ), RO ‘UAL PULATE ADDRESS OF »FREE SPACE 
1C A : bi ° CHPL gPDBSL ENDBUF (R2) {BEYOND END END OF BUFFER? 
1082 148 OF 1 1 INSQUE @PDBSL CURBUF (R2) ,aPDBSL-FILLBL (Re) INSERT BUFFER IN FILLED LIST 
¢A Ad B6 01 ¢ INCW POBSW BUF FCNT TINCREMENT FULL BUFFER COU 
4 Ao 04 O13A CLRL PDBSL CU SCLEAR ADDRESS OF CURREN BUFF R 
50 008 oF 13D 4 40$: REMQUE ti C_ PREEFL CRD). RO  :GET NEXT BUFFER FROM FREE LIST 
14 1D O14 BVS tIF VS NO BUFFER AVAILABLE 
14 a2. 50 po 14 6 MOVL , PDBSL_CURBUF (R2) “SET ADDRESS OF AVAILABLE BUFFER 
18 A2 op AO 9E 014 MOVAB PBiSk = START CRC ) -PDBSL _NXTBUF(R2) ;SET ADDRESS OF FREE SPACE 
7E : a0 3¢ 14 : MOVZWL PBHSW" 51 Z5 (RO (SP) ger LENGTH OF DATA BUFFER 
1 A2 E40 9 13 39 MOVAB (SP) FER PpBsL ~ENDBUF (R ) ;SET ENDING ADDRESS OF BUFFER 
0B A201 88 15 41 50$:  BISB  #1,PDB$B_OVERRUN(R2) 'SET OVERRUN INDICATOR 
8E DS 0158 4g 60$: TSTL + [REMOVED RETURN FROM STACK 
OF BA 0150 34 POPR #*M<RO,R1,R2,R3> TRESTORE REGISTERS 
15F =. 344 ENBINT TENABLE INTERRUPTS 
05 016 45 S : 
gee i 
O16 rt 3 MESSAGE BUFFER SUCCESSFULLY ALLOCATED 
16 50 ° 
50 18 A2 00 bie 51 70$:  MOVL_ PDBSL_NXTBUF (R2) ,RO :GET ADDRESS OF NEXT SPACE IN BUFFER 
18 a2 51 SO C1 0167 38 ADDL3 RO,R1-PDB$L_NXTBUF(R2) :CALCULATE ADDRESS OF NEXT AVAILABLE SPACE 
51° 14 A2 DO 016C 35 MOVL PDBSLCURBUF(R2),R1 :GET ADDRESS OF CURRENT BUFFER 
0B Al B6 179 54 INCW PBHSWTMSGCNT(R1) “INCREMENT ME 
04 AO O0000'CF 7D 017 55 MOVQ  W*EXESGQ SYSTIME,PIBSQ_SRQ_TIME(RO) ; INSERT CURRENT TIME 
0c AO 50 A3. DO 0179 36 MOVL —§ IRPSL_SEQNUM(R3) .PIBSL— Sra “SEQN(RO) : INSERT SEQUENCE NUMBER 
0 OI7E 5 RSB 
17F =. 358 
O17F 6-359 -ENDC 
O17F 360 
O17F 361 END 
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! Psect synopsis ! 


bowen eer een meee eee t 


PSECT name Allocation PSECT _No. Attributes 
Ss 0000000 -)» 00 ¢ 0.) NOPIC USR CON ABS LCL NO 
$ 00 Bee ( -) QO1 ¢ +1.) NOPIC USSR CON ABS LCL NO 
SAEXENONPAGED O0017F (¢ 383.) 02 ¢ 2.) NOPIC USR CON REL’ LCL NO 
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! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 3? 00:00:00.10 80:00: J-16 
Command processing 131 BB 8D be be 0:00:02.7 
Pass 253 0:00:06.89 00:00: $3 
Symbol table sort 0 00:00:01.01 0:00:02.57 
Pass 2 84 Bp 388: 1.43 0:00: 38 
Symbol table output 9 00:00:00.0 0:00:00.30 
Psect synopsis output 3 00:00:00.0 BF 18 8 OF 
Cross-reference output 00:00:00.0 B09: -08 
Assembler run totals 516 00:00:10.06 00:00:34.10 


The yerking set Limit was 1350 pages. 

38555 bytes (76 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space allocated to hold 672 non-local and 15 local symbols. 
1 source lines were read in Pass 1, producing 14 object records in Pass 2. 

19 pages of virtual memory were used to define 18 macros. 
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Macro Library name 


_$255$DUA28: SYS. OBJILIB.MLB;1 1 
“$255$DUA28: SYSLIBJSTARLET. MLB; 2 
TOTALS (all Libraries) 1 


776 GETS were required to define 15 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$: 1OPERFORM/OBJ=OBJ$: 1OPERFORM MSRC$: IOPERFORM/UPDATE=(ENHS: IOPERFORM) +EXECMLS$/LIB 
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SHR NOEXE 
SHR EXE 
EXE 
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RD WRT NOVEC BYTE 
RD WRT NOVEC BYTE 
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